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BBBBBBBB 
68888888 
BBBBBBBB 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
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J 

AAAAAA 

AAAAAA 
AA Aa 
AA WA 
Aa AA 
Ab AA 
AA Ab 
AA Aa 
AAAPAAAAAA 
AAAAAAAAAA 
An AA 
bh AA 
BA AA 
AA AK 


| PASSVAL 
able of contents 


; Convert text to numeric 


1 ag ey 
BA i 


RG 
MULIO_RG = 
BASSVAL_L 
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AL_x = convert text to floating 
= get next character 


multiply FAC by 10 and add digit in R3 
3; convert text (integer) to longword 


BASSVAL_P = convert text to packed decimal 


Page 


0 
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ASSVAL ; Convert text to numeric 16-SEP-1 7 VAX/VMS Macro v04-00 P 1 
Boe g- SE = 38 98: % 3 BASRTL.SRCJBASVAL .MAR; 1 oh 
eTITL easeys ; Convert text to numeric 
eIDENT /2-004/ : File: BASVAL.MAR Edit: MDL2004 
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—PARAARAAARARARAAAAAAAAALAALALAL ASE A EASE EERE ERR R ARRAS ERE RRS S EERE E EERE REE EEE SD 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
7 
® 
& 
* 
THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
IN, ACCORDANCE THE TERMS OF SUCH LICENSE AND WITH THE 
STON OF THE ABOVE. CoPyRi Gut NOTICE. THIS SOFTWARE OR ANY OTHER ®* 
g THEREOF MAY NOT GE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
TRANSFERRED. , 

fe 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
CORPORATION. * 

® 

® 

z 

& 

* 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR 1 pttammamaahda OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


* @aeeneneneeneeneneeeneeeaeneeaene 


LAR RRRARARRASAEARASALAREARSELALAS ESLER AR ERR ARE RRR RRR ARR RRR REAR RRR RRA AR RSS| 


FACILITY: RTL BASIC Language support 
"ABSTRACT: 


Performs conversion of character strings containing numbers to 
floating datatypes. 


VERSION: 2 

HISTORY: 

AUTHOR: R. Will, CREATION DATE: 1-Mar-79 
MODIFIED BY: 


R. Will, 1-Mar-79: VERSION 01 
1- - original 


COOOCOCOCOSCOOCOOOCOSOOOOSOSOSOSOOSOSOSCOoOSOSOOSOOSOOOSOOSoO 
SOOSCOCCSOSOSOSOSOSOSSOOSOSOSSOSOSOOOSOSOOSOSOOOOSOSOSOOOSSoOS 
SOOCOCOCOCOCOSOSOOCOCOOCOCOOSOCCO SOOO SOSSOSSCOSSSSOOCOOCOOOO COO OOOOOOOOOoOS 
NOONE AN 0 OD NA UNE WIN 9S OD NAME WIN OS OD NAME WIN $C OONO UE WIN OOONOUE WN 


PUPP B® BS BB BB EE EHNA IAI AIP NPININPININININYDY 2 PO OO Ot Os a 


SOOCOCOSOOOOSOOOOOSOOOSOOOSOOOOSOOSOOOSOOOOSoOSoOS 


1- 
0 1- § ~ Change entry point name to BASSVAL be, Ray Th 
Bp 1- = Add BASIC Linkages for scaling. 6-JUN- 
0 1-004 = Use new conversion routines. RW Saute? 
rs 1-005 = Add an optional second arquaent to BASSVAL_D. JBS 30-JUL-1979 
0 1- : - Don't let conversion routine round for single_precision. Rw 20-Aug-79 
00 1- - chenge bit set for inte er ignore tabs. aa > “A 
1- i - hange b bit set for in er ignore tabs. 31-Aug-79 
1-009 - KLUDGE® Ha WORKAROUND 1StV TTIL BUG. AANGE Mcait BA K. RW 7-SEPT-79 
1- 19 - Remove kludge of edit RU 1-Sept- 
. 1-011 = String cleanup, don't use SSTR$ macros grct=79 
0 1-012 = Integerize after scaling. JBS 18-DEC-197 


-- 
i 


mn 6 
ASSVAL ; Convert text t 16-SEP=1984 00:01:37 YAX/VMS Macro v04-00 p 
att stent tame ood ggg miioets Yi 93 :99;85 EBASRTL. SRCJBASVAL MAR; 1 — dy 


8 i 12013 = Change MTHSDFLOOR to MTHSDINT. JBS Plt 5s €-1979 
: 1*014 = Add support for g and h floating. | Se-61 

60 ; 1-015 = Add s support for packed decimal. -Feb- 

61 ; 1-016 - por jee entry point should ~ a flag in in % frame before 
45 $6 3 a the conversion routine. Pit 
00 65 ; 2-001 - hdaote irge, OTSSCVTTR, version 1-010, trom a OTs CVTTIL, 
000 64 ; versi nd from BAS$SVAL, version 1-0 
444 65 ; MOL 15-Jul-198 
000 66 ; 2-002 = use new routine OTSSSRET_A_CVT_TAB_R1 to one at gee eddress of the 
4 67; convert table. make external ref'S PIC. MDL 23- 1983 
00 68 ; - -003 = minor bugfix in BASSVAL_P. MDL 25-Jul-1983 
44 Fi ; 2-004 = BASSVAL_D takes scale factor by VALUE, not by REF. MDL 8-Feb-1984 


| 
| 
| 
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numer ic os | i P 4 
-SEP-1984 


— 
oe 


o 
m 
+] 
p< 
Pe 
=F 
oe 
2. 
“oe 
* 
Cad 
°o 


ie ~SBTTL DECLARATIONS 
4; 
re 3 INCLUDE FILES: 
6 : 
, 
i + EXTERNAL SYMBOLS: 
2 .DSABL GBL 
: -EXTRN BASSHANDLER 
sEXTRN BASSK_ILLNUM 
4 .EXTRN OTSSSRET_A_CVT_TAB_R1 
5 sEXTRN BASSCV 
§ eEXTRN OTSSSCVT_AUL 
SEXTRN BASSS$S 
8 .EXTRN BASSSSCALE_L_R1 
89 SEXTRN MTHSDINT 
91; 
3 : MACROS: 
93 ; 
3S 
%6 + PSECT DECLARATIONS: 
98 


o 

So 

S 
SOOSOSCOCOSOOOSOSOOSOOSOOOOOOOOOOSO SOOO SOOOOOOSOOOOSOOOOOOOOOOOOOOoOS 


SOOOOCOOSOOSOOCOOSOOSOOSOSOSOSOSOOOSOSOSOSOSOSOSOOSOSOSOSOSOSOOOOOSOOSOSS 


~-PSECT _BASSCODE PIC, 


: EQUATED SYMBOLS: 


WARNING (¢CEtteeete 

ihe following definitions are dupl 
e 

in both places! 
BSFSA_SAVED_FP = 12 
BSFSW-FCD_FCAGS = -26 
BSFSM_FCD_RND = 9 


3¢ 
3 argument pointer offsets 


00000004 string = 4 


000000) ignore_blanks = 1 
000001 ignore_tabs = 16 
000000 dont _roun = 8 


SOOCOCSCOSOSOOOCSOSOOSOOSOSOSOSOSSOSSOSOSOSOSOSOSOSOOSOOSOOSOSOSOSOOOSOOOOOOOOOOOOOOCOSoOO 


SOSCOCOCOOCOCOOCOOSOSOSOCOSOOS OSC OOSOOSOOOOSOS OOOO OOOOOO OOOO OOOOOOoOOO 


RORoRoRoRoNoNONn) 4 BOO OOOOOS S00 
DWNOAE WN CO ODNOUEWN OO DDNAMNEWN OO 
. 


ee ae ss a ss a st ts ts tt es 


:01:37 VAX/VMS Macro 04-00 p 
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BASIC handier routine 

illegal numeric input 

Convert table address routine 
Convert text to packed routine 
Conversion multiply routine 
general purpose abort routine 
enerates scale value 
ntgerization routine 


SHR, LONG, EXE, NOWRT 


WARNING f¢CEtttttees 
icated from the BLISS require 


BASFRAME.REQ. If any changes are made, they MUS! be duplicated 


3; saved Frame Pointer 
i flags honguore in caller's frame 
; “round’’ bit (in flags longword) 


3? 
; bits in flags longword passed to conversion routine 


no | 


a 
vss 


| 
| 


0000001F 
0000001 
4000000 
0000010 
0000000 
000001C 
10000000 
00000018 


08000000 


00000010 
00010000 


00000000 


0000000 


00000000 
00000004 
00000008 


0000000 
0000001 


oooooo -4 


SSSSSSSSSSSSSSSSSSSSSSSSES5 
COOOCCSCOCOCOSOOCOOOCOOOOOCOoOOooO 


SOoOoooCoOooooooSo 
COOCOCCOCOoOoCoOoo 


COOoOoooooooooooo 
ati atiatatatad ati atataimiadataiadtatmiamiaaiatmiaiadatadabatoiadmabaiababababababablababeabaababeababebababababababad 


0909090900 09 SI NINN ND DDD DDD DDD TTT BS BS SB BB BE EWN 
MEW FO OD NAUNEWN 0 OD NAME WIN HO OD NIA UE WIN CO ODNA UE WO OONOUE WN OO 
2 


COOOOCOOOOSOOSOOOOSOOSSooSo 


Soooooooe 
Sooooooo 
COOCOoCOoooo 


; register. 
V_NEGATIVE = 31 ; 
V-DEC_POINT = 30 ; 
M~DEC-POINT = 1230 ; 
VINEGDECEXP = 29 ; 
MINEG-DECEXP = 1829 ; 
V~DECEXP = 28 : 
M~DECEXP = 1928 ; 
VIEXT_BITS = 27 : 
M_EXT_BITS = 1927 ; 
V_DIG = 16 : 

: M_DIGIT = 1216 ; 

; Literals for data types 

‘ K_DTYPE_D = 0 ; 
K"DTYPE-G =] ; 
K"DTYPE-H = : : 
K"DTYPE—F = 3 


te 
3; Temporary stack offsets 


TEMP = 0 : 
FLAG = 4 
DIGITS = 8 3 
i) ieee : 


se 
3; Stack offsets for OTSSSCVT_MUL routine 


BINNUM = 20 g 
INT = 36 3 
BiNEXP = 40 ; 
PRODF _4 = 44 : 
RODF = 48 2 
N = 64 : 
FRAME = CRY + 16 ° 


; mask for V 


7 
xt to numeric 16-SEP-1984 :01:37 VAX/VMS Macro v04-00 Page 4 
par ety 9839353 BASRTL.SRCIJBASVAL.MAR; 1 . (2) 
: entry masks 
; REGMASK = “M< R2, R3, RG, RS, R6, R7, RB, RY, R10, R11 > 
REGMASK_H = “M< RG, R5, RO, R7, RB. RI, R10, RIT > 


register save mask 
Note: integer overflow not enabled 


B@ 
; The following symbols are used to indicate the bit position of the flag 


flag bit: 1 if negative sign 

hoe bit: 1 if decimal point is seen 

mask for V_DEC_POINT 

flag bit: T if”exponent has negative sign 
mask for V_NEG_DEXEXP i 

flag bit: T if~exponent field exist 

mask for V_DECEXP ? 

flag bit: T if extension bits 

wanted 


mask for V_EXT_BITS 


; flag bit: ‘te digit is seen 


IGIT 


D-floating 
G-floating 
H-floating 
floating 


temporary storage during 
8 word shift 

flag storage 

was R6 in FORSCNV_IN_DEFG 
digits to right of decimal 
oint (was R/) 

ecimal exponent 

Datatype code 


; Binary fraction storage 
; Overflow area for BINNUM 
; Binary exponent 

; Multiply temporary 

; Multiply temporary 

; Carry save area 

; Stack frame size 


| Se 
ASSVAL ; Convert text to numeric 
Bett BECLARATIONS 
00 186 ;+ 
0 1 2 3; Constants 
0 188 ;- 
: 189 
occcccce 190 L_2P31_DIv_10 
0000 38191 


(nn ee 


= 214748364 


stat 9 98: 9h: 4 yaxeuee Macro V04-00 


BASRTL.SRCJBASVAL .MAR; 1 


(2*#31)/10 
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| BASSVAL 
2-004 


d 7 
Convert text to numeric 16-SEP-1984 00:01:37 VAX/VMS Macro v04-00 P 
BASSVAL_x = convert text to floating o7$fp=1 984 10:99:36 BASRTL.SRCJBASVAL .MAR; 1 a (%) 
| 09 137 -SBTTL BASSVAL_x = convert text to floating 
0 195 ;+4 
09 136 3 FUNCTIONAL DESCRIPTION: 
| 00 138 3 BASSVAL_x converts a text string containing a representation 
44 199 ; of a numeric value to a floating representation of that 
O60 39 5 value. 
000 02: The description of the text representation converted by 
$000 08 3 BASSVAL_x is as follows: 
8333 Sip eh mes 
: or more blanks 
0000 Be $ <4", ““e" or nothing> 
0000 07 ; <0 or more decimal digits> 
0000 08 ; c. ow nothings 
0000 09 ; <0 or more decimal digits> 
44 10 ; <exponent or eae. o where exponent is: 
000 11 : < <<¢' ‘" ae a) " “> “— * “' > 
0000 \¢ ; <0 or more blanks> 
0000 13 ; <4", "=" or nothing>> 
0090 14; or 
0000 15 ; <‘'s"' or ‘='>> 
0000 216; <0 or more decimal digits>> 
0000 17 ; <end of string> 
0000 18 ; 
0000 19 ; Notes: 
0000 ss9 3 the only valid exponent letters are 
0000 221 ; "Ee" and ‘'e’’; ony others will be treated 
0000 3¢ ; as an invalid character. 
0000 es 3 
444 Se ; tab and blank characters are ignored. 
0000 226; exponent must start with a valid exponent letter. 
0000 4 ; 
0000 228; 
0000 +4 3; CALLING SEQUENCE: 
0000 0; ; 
sit $3 $ value.wlc.v = BAS$SVAL_x (in_str.rt.dx C, scale_factor.rl.vJ) 
0000 sh : where ‘’x'’ is the datatype of the floating value, either 
0000 34 ; F, 0, Gor H. 
0000 1 
$000 Ha : INPUT PARAMETERS: 
0000 8 
00000004 0000 $39 instr = 4 ; input string descriptor by 
0000 40 ; reference. 
00000008 0000 41 scale_val = ; optional scale value 
000 $5 
B65 43; 
000 44 ; IMPLICIT INPUTS: 
000 45 ; 
O60 46 : 
00 47 ; NONE 
One $8 3 
000 49 ; OUTPUT PARAMETERS: 


| —E 7 
| SASSYAL ; Convert text to numeric 1 


6-SEP=1984 00:01:37 VAX/VMS Macro v04-00 Pa 7 
BAS VAL_x = convert text to floating pa iets 93:95:35 BASRTL.SRCJBASVAL .MAR; 1 oe (3) 


| 
0; 
000000 09 1 value = : floating result by ref 
| $80000%8 ¢ ext_bits = 5 3 8Y present. the value will 
00 ; NOT be rounded and the first 
| 4 ee 3 n bits after truncation will 
0 5 ; be returned in this argument. 
4 2$ : For D-floating, the next 8 bits 
00 5 3; are returned as a byte. 
44 58 :; For G and H floating, 11 and 15 
00 59 3; bits are returned, respectively, 
000 60 ; as a word, left-adjusted. 
4 61 ; These values are suitable for 
0 6 3 use as the extension operand 
0000 6 ; in an EMOD instruction. 
0000 64 ; WARNING: The bits returned for 
0000 65 ; H-floating may not be precise 
0000 66 ; due to the fact that galculations 
0000 67 3 are only carried to 128 bits. 
0000 68 ; However, the error should be 
0000 269 ; small. D and G datatypes. 
0000 70 3; return guaranteed exact bits, 
0000 71 ; but they are not rounded. 
0000 ie 
0000 73 3 
0000 74 : IMPLICIT OUTPUTS: 
0000 75 , 
0000 $76 3 NONE 
0000 77; 
444 ee ; COMPLETION CODES: 
0000 280; BAS$K_ILLNUM - Error if illegal character in input or 
0000 81 ; overflow. 
0000 Hf 3 SS$_NORMAL - success 
0000 83 ; 
0000 84 ; SIDE EFFECTS: 
0000 85 ; 
0000 86 ; NONE 
0000 87 ; 
0000 88 ;-- 
0000 89 
0000 90 
0000 91 
OFFO 000 3 .ENTRY BASSVAL_H, REGMASK_H 
4 9 ; entry for BASSVAL_H 
5E 00000050 8F C2 00 94 SUBL2 #FRAME, SP ; Create stack frame 
10 AE 02 D0 900 95 MOVL &#K_DTYPE_H, DIYPE(SP) : Set datatype code 
4 11 4 36 BRB COMMON ; Go to common code 
OFFC QOOF 98 -ENTRY BASSVAL_G, REGMASK 
ai 99 3 entry for BAS$VAL_G 
5E 00000050 8F 53 11 00 SUBL2 #FRAME, SP ; Create stack frame 
10 AE 1 D 0018 01 MOVL &#K_DTYPE_G, DTYPE(SP) : Set datatype code 
» % ie o¢ BRB COMMON 3; Go to common code 
OFF 901 04 ENTRY BASSVAL_F, REGMASK 
3 5 ; entry for BASSVAL_F 
SE 00000050 8F C2 0020 06 SUBL2 #FRAME, SP ; Create stack frame 


SE Sn ee ce ation 


———_-—_- —--—- - —- 


: FF 

ASSVAL ; Convert text to numeric 16-SEP-1984 01:37 VAX/VMS Macro v04-00 P 
bei BASSVAL x = convert text to floating 6-SEP-1984 93:95:35 EBASRTL. SREIBASVAL -MAR: 1 ce 
Aaah FA 


MOVL #K DTYPE_F, DTYPE(SP) ; Set datatype code 
BRB COMMON 3; Go to common code 


ENTRY BASSVAL_D, REGMASK 


SUBL2 #FRAME, SP 
” aK DTVEE_D, DTYPE (SP) 
(AP), # 


entry for BAS$VAL_D 

Create stack frame 

Set datatype code 

Optional scale value present? 


uw 


E st ied 4 ce 
6C 


06 =F BLSSU MAKE_VALUE no, make one up 
SA O08 AC 00 MOVL scale val(AP), R10 yes, get it 
OF 11 BRB COMMON 
MAKE _VALUE : 
50 OC AD 00 MOV BSFSA_SAVED_FP(FP), RO ; get scale factor from caller's frame 
Q00000000'GF 16 JSB G*BASS$SCALE_L_R1 ; determine scale value (place in RO) 
5A 50 00 MOVL RO, R10 ; put it where it belongs 
11 BRB COMMON 


Register usage and abbreviations: 


- Generally count of input characters remaining. 
R1 = Generally peracer to input character. 
= Generally holds decimal exponent. 
- Used first to hold current character, then as 
extra precision bits for the fraction. 
R4-R7 = The 128 bit binary fraction. 
R8 - Count of digits seen after overflow. ; 
R9 = Count of significant digits seen in fraction (number of 
orgies currently held in R4:R7). 
R10 = optional scale value. 


FAC: Binary fraction, R4=-R7. 


BEE ENN ANAINIAIDIPONPONINPNINNININ 2 2 OOO ne eben 


MEW OOO NA UNE WIN HO OD NAME WN OOO NAU EWN (OOO NAU EWI O0OO 


CLRL —- FLAG( SP) 
5$: MOVQ © ain_str(AP), RO 


clear flags 


RO will qet string length, the 
CLASS and TYPE fields will go 
away after the first SKPC. 
R1 points to input string. 


52 4 CLRL R2 R2 =_DECIMAL_EXPONENT = 
2 C CLRQ R4 R4-R7 = FAC = 0 
6 7 CLRO RO a: 

08 AE D4 CLRL DIGITS(SP) ; digits in fraction 


108: CLRQ R8 Clear digit counts (R8 & R9). 


COOCCSOOOCOOSOSOSOOOCCOSOSOSOSOSOOOCOCOOCOOOOOOOOCOOOOOOOOOOOOOOO 
SOCCOCOCOCOCOOCOCSCOC COO OCSCOSOSO OOOO OCOO OOOO OCOOOOOOOOOOOOOOOOOoOO 
DPD D PPPS SUSU SUSU TT BE EE AAI AIA 
roa oP pth 1* 1" *)*' 1" * te be Pt ot et ot ot or or ot ot ot ot or ot ot ot ot ot et et en al * hh dh dh Po a Ad 


ANAAAAINI AAW AAAIA NAAM AAAI AIA AIAN 


PUP & 


| 
| 
| 
| 
04 AE D4 
50 04 BC 7D 


——_——_—_ —_ - -- --—--——- -- - -- - COO >? —_—— 


_—— 
Soot" 


G6 7 
: Soyar’ text to numeric 16-$ 
BASSVAL_x = convert text to floating 


6 
s a Find first non-blank. 
6 ; character. 


6 
6 
61 50 20 36 Ose 3 208 SKPC #*a/ /, RO, (RI) 
06A 364 
06A 365 
03 16 006A 66 BGTR 30% 
00E6 31 06c 3% BRW ZERO 
53 $1 A 006F 68 30$ MOVZBL (R1), R3 
09 «#453 = «2~#b1 «(00 $ CMPL R a9 
8 12 007 0 BNEG © 35 
1 06 007 71 INCL = R1 
eA 50 «2 F5) «(0079 ee SOBGTR RO, 208 
0006 31 gore 7 BRW zER 
20. «5 1 007F 74 35$ CMPB RS, #*A/-/ 
05 iF 0082 375 NEQ 40 
15 04 AE IF C€ 008% 26 BBCS #V_NEGATIVE, FLAG(SP), 
28 4«653)0«(91 (0089 28 408 CMPBseaR3, -#*A/+/ 
10 13 008C 430 37 BEQL DIGIT LO LOOP 
2 53 91 OOBE 80 CMPB 
15 12 0091 381 BNEQ CHECK DIGIT 
04 AE 40000000 8F CB 0093 36 BISL #m_pet POINT. FLAG(SP) 
08 “E D4 0096 83 CLRL DIGITSTSP 


P=19B6 10:49:35 


If none, return zero. 


br 
vicit 


AX/VMS Macro v04-00 Page 9 
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Otherwise process 


ip blan 

x aan -REMAINING 
NTER_T INPUT 

bit tx set -}f- all blanks 

or-blank found? 

not, return 2 

: Agciitcurrent. char) 

is character a tab? 


skip 
RO = 
R1 = 
Z bi 
n 


z-—. 


ie. bump pointer 

Ma ogy Hy character count 
Value is zero 
is current char a 
renee if not 


sign? 


; set negative flag and cont inue 
is current char a ‘'+'’ sign? 
es, ignore and cont jnue 

s current char a". 
no, should be a digit 
set decimal point encountered 
ignore digits_in_fract 


4H 7 
—BASSVAL : Convert text to numeric 16-SEP-1984 00:01:37 VAX/VMS Macro v04-00 P 1 
bet BASSVAL. x = convert text to floating pase 93395335 EBASRTL. SRE IBASVAL MAR: 1 mr (3) 


aX : Collect integer and fraction digits. Blanks and tabs are ignored. 


Seeee 


€ 0 DIGIT_LOOP: 
O3IA 30 Hi 91 BSBw RGET ; get a new character 
3 D ry ] TSTL R : check for end of string 
0 14 A 9 BGTR CHECK_DIGIT 3; continue if positive 
O0A9 = 331 A 94 BRw SCALE :; done if string empty 
A 95 CHECK_DIGIT: 
33 Ce A 36 SUBL eA/0/. R3 3; convert to muneric 
EP Sethu BBE Storr ide 
AE 00010000 BF C8 O86 39 BISL yn BiGit ey G(SP) $ a set digit encountered 
* Gececeee 8F 7 OF 008 400 CMPL Ry rit 2631. DIv_10 3 check ets. part of FAC to 
OBF 401 ; see if i 18°" big to 
OBF re 3 oui tiply by 1 
9% 18 OO0BF 40 BLEQU§ 10% s it ok 
: D6 00C1 404 INCL R8 $ pretties, bump counter 
0 11 4 405 BRB 2$ 3; skip my io) teat! 
309 30 O0C 406 10$: BSBW MUL10_R9 . eye ies FAC by 10” and add R3. 
D104 AE 1E €1 O00CB 407 2S: BBC #V_DEC_POINT, FLAG(SP), 61 
00CcD 408 3 check to see if decimal 
00CD 409 3 point has been seen 
00CD 410 3 = continue if not. 
08 AE 06 OOCD 411 INCL DIGITS(SP) ; bump DIGITS 
oe ww sie cig BRB DIGIT_LOOP ; branch back to read more 


= = 
| SASSYAL 


FFFFFFFE 8F 


: ot gl text to numeric 
SSVAL 


D 415 ; 
i) $1$ s 
D 417; 
iy) $18 
i) 419 NOT_DIGIT: 
53 ft D 420 CMPL 
98 1 OD 421 BEQL 
15 D1 OODB 4 ¢ CMPL 
1g 13 000 4 BEQL 
_— = D1 OOE 426 CMPL 
11. 13 OOE 425 BEQL 
00868 «=O s«331 E q $ BRw 
E 4 
OE 428 ;+ 
OE 429 ; Decimal point 
QOE 430 ;- 
OQOE 431 
Spee 4 § DECIMAL _POINT: 
1E €2 OOE 4 BBSS 
08 AE 4 QOED 434 CLRL 
FFAB 1 gore $3? BRW 
007D 1 OOF 436 10$ BRw 


+ 
A non-digit has been found. 


1 7 


x > convert text to floating "3 $- $E Pa} 3c 98: 93; % 


weal. gfanao/> 
ae 

a GFE ea os> 
fy #<*A/e/-*A/0/> 


EXPON 
ERROR 


has been found 


#V_DEC_POINT, FLAG(SP), 
DIGITSTSP) 

DIGIT_LOOP 

ERROR 


AX/VMS Macro 


v04-00 Page 1 
BASRTL.SR R18 BASVAL .MAR; 1 ( 


1 
6) 


Check for decimal point or exponent letter. 


branch to DECIMAL POINT if yes 


pregess exponent 


process exponent 
none of the above => ERROR. 


10$ : error if duplicate 
; reset 616 
: get lenet hon digits 


gepereriee ae 


§ Ff 
| BASSVAL ; Convert text to numeric -SEP=-1984 AX/VMS Macro v04-00 P 1 
ba BASSVAL x = convert text to floating -SEP-1984 98: te 4 BASRTL.SR ROB BASVAL .MAR; 1 ar (3) 


F $38 3° 
F ; we have an exponent. see if we have gotten any digits yet; if we 
| : rot haven't, this is an error. , 
F stg ExPon: 
03 04 AE 19 9 F6 0 4G BBS #V_DIGIT, FLAG(SP), wn DIGITS 
007 re rt: BRW ERROR if digit seen bit not set, error 
FE 446 ;+ 
4 ri ; Loop to collect digits, store the accumulated DECIMAL_EXPONENT in R2 
OFE 109 EXPON_DIGITS: 
0 o7 F 450 DECL ; skip over letter 
F 15 01 451 BLEQ EXP_DONE ; done if string emp pty 
1 6 01 $26 INCL Ra ; R1 points to next character 
61 50 ! 106 45 SKPC #*Aa/ os RO, (R1) ; skip blanks 
1 108 454 BLEQ EXP_D ; done if end of string 
53 1 OA i 455 MOVZBL CRIT. ; R3 = current char 
09 3 6Dd1 0100 $2$ CMPL & : Is it a tab? 
13. 0110 45 BEQL Hil DIGITS ; Yes, skip it 
28 D1 Bi 458 10$: CMPL i ae 
op 13 0115 «459 BEQL Eee (oop i yes, get digits 
2D D1 0117 460 CMPL «=soR3,, -#*A/=/ : "4 
OF 12 O11A 461 soe an BNEQ EXP_CHECK ; Mo, go check digit 
04 AE 20000000 8F C8 ait ree om ine #M_NEG_DECEXP, FLAG(SP) ; exponent is negative 
0294 30 61 4 465 BSBW RGET 3 get aout character 
50 f 0127 £06 TSTL RO : is stri » empty? 
16 5 + 9 46 BLEQ EXP_DONE ; done if tru 
12B 468 EXP_CHECK: 
=. 2 0128 469 SUBL #*A/0/, R3 3 convert to numeric 
4 19 01 470 BLSS ERROR 3 if meget tye, itlegat character 
09 #535 )=~«~(DT C01 471 CMPL R3, #9 3; is it adi 
3€ 1A 0133 $76 BGTRU ERROR 3; branch to RROR if not 
52 ° C4 0135 47 MULL #10, R2 ; add in new digit 
9 1D 3 8 474 BvS ERROR : overflow? 
52 53 CO O13A 475 ADDL R3, R ; to exponent 
34 1D 0130 476 BVS ERROR : overflow? 
oS a Biz rhs BRB EXP_LOOP 3; get more exponent digits 
141 479 EXP_DONE: 
03 O46 A 1D SOE te 480 2 BBC ay ~NEG. DECEXP, FLAG(SP), 1$ 3; check for negative 
5 52 cf 0146 481 MNEGL R2> : negate DECIMAL_EXPONENT 
04 AE 10000000 8F C bie4 ? § 1$: BISL #M_DECEXP, FLAG(SP) 3 exponent field exists 
0151 484 
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_ BASSVAL ; Convert text to numeric 1 AX/VMS o v04-00 Pa 13 
; BASSVAL_x = convert text to floating go at 98: 83: 3 LBASRIL. Ske SBASV VAL .MAR; 1 - (8) 
151 4 ’ 
151 4 $i : pene collecti input characters for digits and/or exponent 
| : : : 3 : f FAC 26 no staking is necessary, just store 6. 8 ond return. 
151. 490 ° 
151 re SCALE: 
3 83 1 136 TSTL Rg ; Check FAC for zero. 
8 : $37 BNEQ INIT_BINEXP ; Branch if not. 
1 495 ;¢ 
1 496 ; Value is zero. 
188 298 
1 499 ZERO 
03 00 10 AE ore : 2 200 13 ars} geek WK_DTYPE_D, MK_DTYPE_F ; Select on datatype 
$6 0¢" 13 0¢ : “WORD G_NUM-1$ 
0010° 015 8 .WORD " “NUM-1$ 
0016° 19 be > a “WORD F-NUM-1$ 
50 7¢ O16 206 ~~" CLRa RO 
oc (17 0164 mum: Oe ZERO_RET 
50 7C 166 $9 i.) he 
08 11 138 311 oan BRB ZERO_RET 
59 z O16A I or cLRa RO ; zero out return value 
83 11 5196 314 _ BRB ZERO_RET 
50 D4 O17 1 - -~@m 
4 : 3 BRWwW ZERO_RET 
17 215 ZERO_RET: 
04 017 2 0 RET 3 return. 
ae 
3¢ 
17 H ¢ i ERROR return 
BEE 
17 § ERROR: 
7E 00° 8F 9A 17 MOVZBL ee ILLNUM, -(SP) 3 
00000000'GF 01 FB 017 : CALLS G*BASS$STOP 
dS 1 185 ; BRB rERO ; Set value to zero and exit 
18 1s 
180 § 3; Set R1 to the binary exponent Cexponent bias + 128 - 1). 
180 : 128 is number of fraction bits and 1 is 
180 4 : for the MSB fraction bit which will be hidden Later. 
180 > 3 BINARY EXPONENT will be modified during normalization process. 
180 839° 
180 : INIT_BINEXP: 
03 00 10 AE of 1 CASEB DTYPE(SP), #K_DTYPE_D, #K_DTYPE_F ; Select on datatype 
* 01 0 1$: <WORD D_EXP-1$ 
OOF* 01 <WORD G7EXP-1$ 
016" 0189 2 ~WORD H_EXP-1$ 
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; Convert text to numeric 16-SEP-1984 00:01:37 VAX/VMS Macro v04-00 Pa 14 
BASSVAL. x = convert text to floating g-SEp-19 93:95:35 BASRTL.SRCIJBASVAL .MAR; 1 = (8) 
001D* 01 43 -WORD fF EXP=1$ 
51 OOF F of : 1 44 DLEXP: MOVZWL #2°x804*xX7F>, RI 3 D-Floating 
5 1 45 BRB xP rene 
51 047F 4 . 133 2 G.EXP: MOVZWL hy rene R1 3: G-Floating 
51 407F 4 . i. 48 H_EXP: 1 Na BeANLDO0s“X7F>, R1 3 H-Floating 
1A 9 F_EXP: n 
51 OOF F 4 3C 1A MOVZWL #<*X804*X7F>, RI 
0 11 1A § BRB EXP_COMMON 
iS 
1A9 2 : Find the true decimal exponent for the value expressed in FAC. 
1A9 2$ ; True decimal exponent = Explicit exponent - (scale factor] - 
1A9 57 ; digits in fraction + number of overflows 
hae oe 
1A9 60 EXP_COMMON: 
50 52 v0 + o MOVL R2, RO 3; RO = DECIMAL_EXPONENT 
02 6 91 1AC 8 CMPB (AP), #2 3; optional scale factor present? 
0 1F 1AF 64 BLSSU 208 3; no 
50 SA C2 0181 65 SUBL R10, RO 3 yes, adjust decimal exponent for 
nine $6 3 scale factor 
58 OB AE (C2 318% rt 20$: SUBL DIGITS(SP), R8 3 adjust for digits in fraction 
AE 50 58 C1 0188 69 ADDL3 RB, RO, DECEXP(SP) ; adjust decimal exponent for overflow 
1D H+ 359 BvS ERROR :; If overflow, error 


Robes ing. R4-R7 now contains a binary iregtten normalized with 
the radix point to the left of bi 1 1 contains the 
current Bthery exponent and DECEXP(SP) contains the current decimal 
exponent. 


Theref 7) the number can be represented as: 

* fraction * 10**d 
where b gee6 the binary exponent and d is the decimal exponent. We 
call OTS$$CVT “HAUL to multiply the number by some power of 10 such 
that d goes td zero and b goes to the eperseriate value. When d is 
zero, b contains the proper binary exponent. 


m 
@ 
> 


* MOVAB eye AT ne 3; RB is used by subroutine as base 
MOVL psp) ; Store b nary @ exponent 
mOvG R4, BINNUM+0(SP) 3; Store fraction 


OWDNOAO NEW 0 OODNOA NE WIN OC OCONEE 
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AL ; Convert text to numeric SEP-1984 AX/VMS v04-00 Pa 15 
a BASSVAL. x = convert text to floating betters yi 98; it % UBASRIL. SRE SBASVAL. MAR; 1 ” (9) 
18F 
| 1BF t "Normalization. Shift the value left until bit 31 of R7 is on. 
| + : A raimets the binary exponent appropriately. 
18F 
| 09 9 ft 1BF , CMPL R9, #9 3; Are there more than 9 digits? 
3 \te 7 BLEQ Ni ; If not, use N 
12 «+59 b} iC 0 CMPL =o, #18 ; Are there nore “than 18 digits? 
1A 5 434 1 te BLEQ N2 i If not, use N 
163 $ ; Process all four longwords, since there are more than 18 me: 
40 57 FF €0 188 5 Né: BBS ait af. . BASE : Quit when R7<31> = 
6E 2? .? @ f 1s8 § EXTZV » TEMP(SP) ; Save bit lost in shift. 
4 4 6 9 O11 ASHQ 3: Shift low part by one bit. 
56 6 1 79 0106 8 ASHQ Re. Re ; Shift high part H one bit. 
56 601 «00 6 FO O1DA 58 INSV it #0, #1, RO Replace it lost in shift. 
7+ 2 1DF 90 DECL ; Adjust exponent by one. 
&6 11 i 4 - BRB ; Go back and retest. 
te $8 ; Process two low-order longwords only, since there are <= 18 digits. 
51 00000040 8F 2 OE 95 N2: SUBL #64, 81 3; Adjust exponent by 64. 
56 4 D 1EA 38 MOVQ R4, R6 3; “'Shift’’ by 64 bits. 
1 7 OED 97 108: DECL R1 $ o yet exponent by one. 
56 56 01 9 O1EF 4 ASHQ #1, R6, R6 3 Es .an0 
F818 13 99 BGEQ ~=s-«*108 : 7<31> : 0, repeat. 
54 7C OF 600 CLROQ R4 3 Seer low-order 64 bits. 
14 =~2«#6«11 Wee ret z BRB REBASE : Continue with next phase. 
OIF 2 : Process only the low-order longword, since there are <= 9 digits. 
51 00000060 iy C2 O1F9 605 NI: SUBL #96, R1 : Adjust, ex exponent iby 96. 
57 4 D 8 60 MOVL R4, R7 3 “'Shife’’ ts. 
51 p 607 20$: DECL 3 ae yet exponent. 
aan, : 0 ASHL #1, R7, R7 3 ats gre ‘ 
‘81 9 BGEG § ©_- 208 : <31> : §: repeat. 
54 D4 CLRL R4 3 (Be low-order longword. 


rc 


; Convert text to numeri 
Bas 


C 
VAL_x = convert text to floating 


1C A 6 7 19 MOVa 
SERB mH ee 
50 “oc be 09 e — - 
af ? 635 BEQL 
99 14 9 6 § BGTR 
ik cr Ose RNG. 
0 $9 bi Gehi E39 20s; aoe 
03 50 3 E0 6 ee 30$: BBS 
F9 57 F4 ; ee SOBGEQ 
50 57 OC C1 1) 644 408: ADDL3 
ct 8s 
52 50 C4 41 68 50$: MULL2 
sees sed 16 44 963 "JSB 
52 co 4A 64 ADDL2 
6E 5 oy) 8 4D 650 MOVL 
57 28 AE GE 50 6651 MOVAB 
0254 $36 
0254 65 
0254 654 
90000000" ig 8 54 655 JSB 
5 6E 01 C SA $26 SUBL3 
co 18 +O 43 65 BGEQ 
026 $28 
0260 659 ;+ 
60 660 
60 661 
6) 869 | 
OC AE D5 $9 664 TSTL 
05 13 026 665 BEQL 
15 19 0265 66 BLSS 
FFO9 31 0267 66 BRW 


R6, BINNUM+8(SP) 
aif, R7 
0, R2 
DECEXP(SP), RO 
AT 
R 
» RO 
i #16 
R7, RO, 408 
R7, abs 
#12, R7, RO 
RO R2 
G*OTS$$RET_A_CVT_TAB_R1 
R7, TEMP(SP) 
DECEXP+28(SP), R7 
G*OTS$$CVT_MUL 


#1, TEMP(SP), R7 
10$ 


DECEXP(SP) 
FLOA 
UNDERFLOW 
ERROR 


"$$Eb=1986 90:99:35 
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3; If we fall through here, then there are 
3 Test DECEXP to make sure. 


AX/VMS Macro v04-00 
BASRTL.SRCJBASVAL .MAR; 1 


Highest bit number possibly 
on in decimal " onent. 
Initially, positive offset 
Get decimal exponent 

f zero. we're done 
Positive? 
No, use negative offset 
Absolute value 
Within Linear table range? 


Yes 

Is the R7th bit of RO on? 

No, try again. 

This can never fall through. 
Index is 12+bit position 

because table is Linear 

from 0-16. 

Get table offset 

get convert table address (in RO) 
able entry address 

Save hi bit position : 
This is ‘‘common convert routine’ 
table base. The +28 offsets 

the -28 location of DEC_EXP 
referenced in OTS$$CVT_AUL. 

Do the multiplication 

Get next bit position 

Loop back if more 


no more bits to reduce. 


Any bits still on? 
No k 


- 0 
Negative, underflow 
‘eS, exponent too big 


rom i, 


um | 
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ASSVAL Convert text to numer ric 16-SEP-1984 00:01:37 VAX/VMS Macro v04-00 Page 17 
-004 bas SSVAL_x = conver” text to floating b= Seb o8¢ 93:95: BASRTL.SRCJBASVAL .MAR; 1 (10) 
6A 669 ;+ 
6A 670 ; Create a vont day My — from the fraction in BINNUM and the 
6A 671 ; b nary exponent in Each datatype has a separate routine 
6A ore 3 to do this. 
6A 6735 ;:- 
6A 674 
6A 675 
6A 676 FLOAT 
28 AE 05 6A 67 TSTL BINEXP(SP) 3; Underflow? 
19 60 of8 BLSS UNDERFLO 3; Yes 
03 OO 10AE _ 8F of 67 CASEB DTYPE(SP), #K_DTYPE_D, #K_DTYPE_F 
9008" 4 680 108: <WORD FLOAT -b-i8s 
62° 76 = 681 «WORD FLOAT-G-10$ 
ay - 8 78 obs WORD FLOAT_H-10$ 
107° 7A 68 ~ WORD FLOAT “F=10$ 
027C 684 
8 7C 3 3=6685 5+ 
7C on6 ; Value underflowed. Set to zero. 
027C 687 ;:- 
OSoe 688 
027C 689 UNDERFLOW: 
FED6 31 O27C 690 BRW ZERO 
O27F 691 


cr 


| BASeyAL 
-004 
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: renyers text to numeric 
BAS 


VAL_x = convert text to floating 


693 FLOAT_D: 
M 


7F 
56 1G AE OD «OOS7E 69% ova 
si eae th OB 3 695 ASHL 
49 1D 696 BVS 
58,36 9A OBA 69 MOVZBL 
56 56 FR BE 79 (OCR) 698 ASHQ 
57 FFOOO00 BF CA 0292 49 BICL 
5 1 €0 0395 700 ADDL 
5 1D 039C 701 BVS 
9 708 
wee ey om 
57 00 DB OSAL 508 ADWC 
gh 1D OZ? 706 BVS 
0604 ae 3B EI O2A9 707 158: BAC 
18 BC 58 90 OSAE 708 MOVE 
04.04 AE IF £1 0282 709 178: BBC 
00 57 Ff €3 098? 710 BBCS 
0588 711 208: 
50 57 10 9¢ 0288 712 ROTL 
51 560 «100«O9C:s«CDBF O71 ROTL 
053714 
SA DS 02C3 715 TSTL 
09 #13 09c5 «716 BEQL 
03C? 717 
SE pb 00C?—718 PUSHL 
00000000'cF 01 ~=FB 099 719 CALLS 
Q0E7 31 02300 720 25$:  BRW 
0503731 
0203 722 ERROR_D: 
FE9D «310203798 BRW 
0306 734 


¢ 8 
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Page 18 
BASRTL. RCIB ASVAL .MAR;1 


(11) 


"$-SEP=1984 10:59:35 


Restore fraction 


ERROR_D 
#7, RB, 15% 
R 


overflow if hidden bit bumps 
exponent too far 

round bit is zero 

round 


AN aaa $4 (SP), R6 ; 

ExP(§p), R1 3; Put exponent ie proper place 
eSaonee t Error if overt lous 
R6 . ; Extract roundin 
#-8 R6 : Shift fraction. Fight. Laces 
axe 66000, R7 : clear possibly sh tes its 
R1 3; Add in exponen 


ER RROR - Error? 
av PERT _BITS, FLAG(SP), 17$ 


RB, @ext_bits(A 

av NEGATIVE *FLAG(SP), oe ; Set sign bit 

#3T, 20$ insert sign bit to 1 
#16, ae RO 3; rotate and store result 
#16, R6, RI 

R10 ; scale factor > 0 ? 
258% 3; no, return raw result 
SP 3 

#1, G*MTHSDINT ; integerize the result 
EXIT 3; ALL done 

ERROR 3 error return 


r—- -- - . ' — —_ — - 


ey, 
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AL : Convert text to numeric 16-SEP-1984 :01:37 VAX/VMS Macro v04-00 Page 19 
bait aS VAL_x = convert text to floating aes r 98:93 5 (CBASRTL.SR RCIB ASVAL .MAR; 1 . (12) 
D6 g 5 FLOAT_G: 
36 1C AE 4 D6 MOva #20, BINEXP( R6 3; Restore fraction 
51 oo se DA 7 8 ASHL #20 u eect R1 + Put exponent in proper place 
7 WW ODF 7 BVS RROR t Error if overflow 
58 Be 43 ! e oe i. EXTZV #0. AR R6, RB : Extract rounding. bits 
5 6 731 ROTL ; Left adjust 
56 FS BF fA 7 ; ASHO = #11 hs, : Shift fraction right 11 places 
s rFE09006 . ee Ga oF BICL auto +08 R7 : clear possibly | shifted bits 
1 €0 FS 734 ADDL R1, R : Add in exp 
iD 1D OoF 735 BvVS ERROR_G ; overflow f "hacen bit bumps 
Fe 7 $ exponent too far 

18 E1 FB 737 158: BBC “y -EXT_BITS, FLAG(SP), 198 

58 B80 0300 7 : MOVW RB, a@ext_bits(AP) 

if so 04 739 178: BBC av NEGATIVE: *FLAG(SP), 20$ : Set sign bit 

1fF 6©€3 (0309 «= 740 BBCS ) =sw#3T $ : insert sign bit to 1 
9300 741 208: 

10 9 OD 74 ROTL #16, R7, RO 3 rotate and store result 

10 9C 0311 7% ROTL #16 

OOA2 31 0315 744 BRW EXIf : ALL done 
0318 745 
0318 746 ERROR_G: 
FES8 31 0318 74 BRW ERROR 3: error return 

0318 748 


| 
| 
| 
| 

04 04 AE 

18 BC 

04 0% AE 

00 5 

50 57 

51 56 


; Convert text to numeric 
BASSVAL_x - convert text to floating 
18 £39 FLOAT_H: 
Vv 
4 16 AE 7D 1B 67 MOvVa 
g 1¢ ar 7 | Seve ¢ mova 
51 AE 1 7 ; 75 ASHL 
of 10 754 BvS 
oar oe ee ee ee 
— -. F 0 EF ; 139 EXTZV 
4 F1 8F 9 0 7 3 SHQ 
6 6 F18F 79 QO 75 ASHQ 
55 0 11 0 F0 4 760 INSV 
57 rereggoe gf CA 4 761 BICL 
1 0 4E £o¢ ADDL 
25. = 1D b324 P67 BVS 
04 06 AE 1B €1 0333 765 15$: BBC 
18 BC 658 B0 0358 £66 MOVW 
04 04 ag 1F €1 O35C 767 17$: BBC 
00 5 1F €3 0361 76 BBCS 
0365 769 20$ 
50 57 10 9C 0365 #770 ROTL 
51 56 10 9C 0369 771 ROTL 
26 55 10 9C 0360 ure ROTL 
5 54 10 9C 0371 77 ROTL 
0042 31 0375 774 BRW 
0378 775 
0378 776 ERROR_H: 
FOF8 31 0378 #777 BRW 
0378 778 


E 8 
AX/VMS ae cro V04-00 
BASRTL.S RCI BASVAL .MAR; 1 


"$-$EP=1986 10:59:35 


BINNUM+0(SP), R4 ; Restore fraction 
BINNUM+8(SP), R6 
#16, BINEXP(SP), R1 ; Step 1 
ERROR_H ; Error if overflows 
#0, #T5, R4, RB ; Extract rounding bits 
» RB, RB 3; Left adjust 

#0 a RG, RO : shift r ght 15 places 
1 

nie Ait RS 
aif e6000, R7 : clear possibly shifted bits 

; Ste 

ERROR. 4 ; overflow if hidden bit bumps 


exponent too far 
#V_EXT_BITS, FLAG(SP), 19s 
RB, @ext_bits(AP) 


VNEGATTY FLAG(SP), 208 3 Step 4 
*3T. 58 : insert sign bit to 1 
#16, m RO 3 rotate and store result 
#16, R6, RI 
#16, RS, R 
#16, R4, R 
EXIf 
ERROR ; error return 


Pane 48; 
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| BASSVAL ; Convert text to numeric 16-SEP-1 7 VAX/VMS Macro v04-00 Page 21 
80d das VAL_x = convert text to floating 6-S EP-19 382 ti 85: iH BASRTL.SR RCIB BASVAL .MAR; 1 : dy 


| 78 780 FLOAT_F: 
36 1Cc ag 78 78 «781 mMOva 1 ee tated R6 3; Restore fraction 
51 >. ‘ 7. Sen § ASHL BINEXP(SP), R1 ; Put exponent in preper place 
1 s fr BvS ERROR ; Error if overflow 
6 oA § 784 MOVZBL Re ; Extract rounding 
36 an F 7 785 ASHQ - 6 6 : Shift wrest en Fight. laces 
5 F809000 F OCA € 7 6 BICL rt 6000, R7 : clear poss idly sh Ned its 
1 £9 7 ADDL Rt 3; Add in exponen 
1D iD 0398 7 8 BVS ERROR _F ; overflow if hidden bit bumps 
9A C7 exponent too far 
04 04 AE 18 3 9A 790 15$: BBC #V_EXT_BITS, FLAG(SP), 19s 
18 5 0 oF 791 MOVB RB, dext_bits(AP) 
04 04 A 1F E1 A O86 17$: BBC ey WEGATTYE FLAG(SP), 20$ ; Set sign bit 
00 57 #1F €3 348 193 a. BBCS =—s«#3T, rs : insert sign bit to 1 
50 57 10 9C Q3AC 795 ROTL #16, R7, RO 3 rotate and store result 
51 56 9 9¢ 0380 79 ROTL #16, R6, R1 
0003 31 0384 79 BRW EXIf ; ALL done 
0387 798 
0387 799 ERROR_F: 
FDB9 31 0387 #800 BRwW ERROR 3 error return 
03BA 801 
03BA 4 
03BA 80 
Q3BA 804 ; ; 
O3BA 805 ; Success exit 
O3BA 806 ; 
03BA 807 
O3BA 808 EXIT: 
04 O3BA 809 RET 3; return 
0 810 


an PO aE PN Oe Sa Oe CS ee 
6 8 
| BASSVAL ; Convert text to numeric 16-SEP-1984 00:01:37 VAX/VMS Macro v04-00 Page 
bait RGET - get next character aie 9:93: 5 (CBASRTL.SRCJBASVAL.MAR;1 . (3) 
BB 1 -SBTTL RGET = get next character 
BB 1 
BB 14 34 
BB 15 ; Subroutine RGET 
8B 1 : input: 
BB 1” 3 RO = number of characters remaining in string 
BB 18 3 Ri = address of current character 
BB 19 ; output: 
8 0; RO is decremented by 1. If RO is now non-positive, 
BB 1 3 RGET returns immediately, indicating that the end 
BB ¢ 3 of the string has been reached. 
BB : If there is string Saget R1 now points to the 
BB 4; new current character, and § has that character. 
pees $3 
bse § 
to : 8 RGET: 
0 o7 0388 9 DECL 3 decrement length counter 
1 15 0380 4 0 BLEQ 0$ : If string empty, return 
1 D6 O3BF 31 INCL fe ; R1 points to new character 
1 9A 03C1 o36 MOVZBL (R1), R3 ; R3 gets character 
3 6©D1 «6(03C4~— 83 CMPL . : Is it a tab? 
; 13 03C7 834 BEQL od 3 Yes 
D1 O3C9 835 10$: CMPL R3, #*A/ / : is character a blank? 
2 12 O3CC 836 BNEQ 20$ 3: return if not 
B 11 QO3CE 837 BRB RGET ; yes 
05 0300 838 20$: RSB 3 return 


nm OM 
o Ow 
MOM" 
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ASSVAL ; Convert text to numeric 16-SEP-1984 00:01:37 VAX/VMS Macro v04-00 P 3 
Soe fut to. R9 = multiply FAC by 10 and add poet et 9 90:93:32 BASRTL.SRCJBASVAL .MAR; 1 _ da 
| 4 40 -SBTTL MULIO_R9 = multiply FAC by 10 and add digit in R3 
D1 42 3+ , 
D1 28 ; Subroutine MUL10_R9 
| D1 44 ; snout: 
D1 45; RG-R7 = FAC 
| D1 rf : R9 = count of decimal digits currently held in FAC 
D1 47; gyte t: 
| D1 B48 RG-R? = FAC#10 + digit in R3 
D1 49 ; R9 = updated count 
| ge 
D1 § MUL10_R9: 
5c 59 98 F3 D1 5 AOBLEQ #9, R9, M1 : If 9_or fewer digits. use M1. 
12 59 D1 0305 854 CMPL sso, wi : If 18 or fewer digits, 
40 «15 + 2 . BLEQ M2 : use M2. 
33 : Process entire octaword (four longwords), since there are > 18 digits. 
50 DD O3DA 859 # PUSHL RO _; Free up a scratch register. 
50 655 9 1F GF DC 60 EXTZv #31, #1, RS, RO ; Save bit that will be lost. 
56 6 9 9 O3E1 61 ASHQ #1, R6, Rb ; Multiply high part by 2. 
“ 0 58 €5 6¢ ADDL RO, ; Replace bit lost in shift. 
54 4 o1 ? £B 86 ASHO =o #1, R : Multiply low part by 2. 
50 >. oa 1. 2 F EC 864 EXTZV #36, #2, R5, RO 3 Save bits that will be lost. 
7E 56 O 9 O3F1 869 ASHQ 2. -(SP) : Multiply high part by 4. 
of 5 0 F5 $6 ADDL RO, (SP) : moptece bits lost in shift. 
7E 4 02 9 O3F8 86 ASHQ #2, R4, -(SP) 3; Mu tiholy low part by 4. 
a re ame oe een 
56 OBE OCOiO 402 870 ADWC = (SP) +, RO Recs 
57 3 ) 40 71 ADwC (SP)+, R7 a sea 
54 CO 0408 2 ADDL RS, RA : Add digit in R3. 
09 1€ 0408 87 BCC 20$ : If no carry, quit now. 
55 00 OD 40D 74 ADWC #0, RS i 
a a 
50 «BE 00 Big He 208: MOVL (SP)+, RO : Restore scratch register. 
0 th 378 ‘ RSB 3; Return to caller. 
an B80 : Process two low-order longwords only, since there are <= 18 digits. 
54 54 01 79 O4IA 8¢ Pa ASHQ = #1, -R4, RS : Multiply R4:R5 by 2. 
56 ee 9¢ 79 «041 ; ASHQ #2, R4, : multiply R4:R5 by 4. 
4 § co : 4 ADDL R6, 3; Add oe C to C (low). 
55 3 D8 04 85 ADWC OR? RS : Add 8*FAC to o*FAC (high). 
ae bhatt: 
8 MC 4 : 88 CLRO 6° > Restore R6:R7. 
05 ? : 34 r 8 3; Return to caller. 
be : + : Process low-order longword only, since there are 9 or fewer digits. 
54 6444 E 431 38 my MOVAL (R4)CR4], RS ; Multiply R4 by 3° 
54 6344 § 435 94 MOVAW (R3)CR4], R4 ; Multiply R4& by 2 and add R3. 
9¢ 1 439 95 BNEQ 108 ; If nonzero, quit now, EA 
438 96 CLRL R9 : Reset digit count, since digit 


TPO EE TE ER I DE IE oe De a EO 


I 8 
a tie hut to'RS. tere teipty: FAL by 10 and add 7° $e 198 98: 93: % YBASRiL. BRE SSaSVAL MAR: 1 


3 was not significant. 
05 Oe3p 638 10$: RSB ; Return te esiler. =e 
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| 3 
sou ; Convert text to numeri 


C 16-SEP-1984 00:01:37 VAX/VMS Macro v04-00 Pa 5 
Bas VAL.L ; convert text (integer) to | pasty 93:95:35 UBASRTL. SREIGASVAL MAR: 1 = (3) 
-SBTTL BASSVAL_L 3 convert text (integer) to longword 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


BASSVAL_L converts an ASCII string containing a text 
representation of a decimal number to internal binary form. 


> J 


WR SO ODNAMNE WIN SO OD NA UE WIN @ 9 OD NAUSEA O OONOUE Wh 


The text representation converted is: 
<0 or more blanks> 


> ‘ eoee 


. or nothing> 
<0 or more ASCII digits from ‘'0’’ through ‘'9’> 
<end of string> 


Notes: 
1. Blanks and tabs are ignored. 


CALLING SEQUENCE: 
status.wic.v = BASSVAL_L (in_str.rt.dx ) 
INPUT PARAMETERS: 
in.str = 4 3; Input string by descriptor 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 


00000004 


IMPLICIT OUTPUTS: 


, ak ek ek el ek ek ek et nt at et et ed 


LAA. AIA AIAI AAAI AINA WAI 


lesleslesloslaslasioslaslaslasioslaslasleslaslasleslasleslasleslasleslaslasleslasleslesleslaslesl asl eslasl esl esl asl asl eal 


BF FAWAAAIAI ANIA PONPONIMININININID 4 2 OO OO es 


WOOOOOOOOOOOOOOOOOOOOOOODOOOOOOOOOO 


; value in RO 
r ; COMPLETION CODES: 
4 3 $S$$_NORMAL - Successful completion 
E 3 BASSK_ILLNUM - There was an invalid character in the input 
E 942 ; string, the value overflowed the renee allowed, 
E 43; or value_size was invalid. The result ‘‘value’’ is 
E 944 ; set to zero, unless value_size is invalid, in which 
: 362 ; case ‘‘value’’ is unpredictable. 
E 947 ; SIDE EFFECTS: 
E 948; 
—E 949; NONE 
es 9503 
—E 951 ;-- 
E 326 
ip ey ENTRY BASSVAL_L, REGMASK 
50 4 955 MOVa @in_str(AP), RO ; RO = width of the input string 
444 329 ; R1 = address of the input string 
444 95 CLRO RG ; R4/R5 = ACC = 0 


~ 
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cr 
i 
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| 
 BASSVAL ; Convert text to numeric 16-SEP-1984 00:01:37 VAX/VMS Macro v04-00 Pa 
3 Bas VAL.L ; convert text (integer) to | aoe yi 93:95:35 YBASRTL. SRE IBASVAL R;1 = (3, 
| 56 D4 O44 a CLRL RO ; clear flags 
44 » 3+ 
4 961 ;- 
44 9 § 
61 50 20 38 044 $ 5$: SKPC #*Aa/ /, RO, (RI) ; skip blanks 
4C¢ 64 3; RO = #CHAR_REMAINING 
4C 965 ; R1 = POINTER_TO_INPUT 
44C ; 2 bit is set if RO = 0 
50 13 4C 96 BEQL DONE _L ; branch to DONE if no non-blank 
09 1 91 066 68 CMPB (R1), #*x09 3; is it a tab? 
1 $2 9 BNEQ 7$ 3; If not, continue 
D 4 970 INCL R1 ; Bump pointer 
ee 45 971 DECL RO 3; Decrement counter 
EF 11 045 3f¢ BRB 5$ 3; Look for more. 
20 61 91 59 973 7$: CMPB (R1), #*A/-/ ; is the current char a ‘'="" sign? 
04 ¢ 45C 974 BNEQ 10$ 3 no, branch to 10$ 
05 56~—=CsSd#F E3 045 975 BBCS #V_ NEGATIVE, R6, DECIMAL_L 
Bee 378 ; set negative flag and continue 
28 «661 91 046 978 10$: CMPB (R1), #*A/+/ ; is current char a ‘‘+'' sient 
04 12 0465 979 BNEQ  DIGIT_LOOP_L ; mo, branch to check if it is a digit 
0467 980 
Beet + 4 3+ 
467 9 ¢ 3; skip over ‘="" or ‘'+"’ sign 
0467 983 ;- 
0467 984 
0467 985 DECIMAL_L: 
50 D7 0467 986 DECL RO ; RO = #CHAR_REMAINING 
51 D6 0469 987 INCL R1 ; R1 = POINTER_TO_INPUT 


GRIESE Ratiaiea Aen ii ee 6S Sa Le 


S Su 


; Convert text to numeric 


16-SEP-1984 00:01:37 VAX/VMS Macro v04-00 Pa 7 
Bas VAL.L ; convert text (integer) to lL o-$ P1984 93:95:35 BASRTL. SR RCIB BASVAL .MAR; 1 ate (58) 
68 9 34 
468 : Loop to collect digits. treat blanks as zeroes, until the string is exhausted 
68 3; then branch to DON 
468 § i- 
rhe 4 DIGIT _LOOP_L 
v $ 
D7 0468 995 pEtL RO 3 RO = #CHAR_REMAINING 
19 260 4 BLSS DONE_L ; branch to BONE if the string is exhausted 
46F 228 3 i+ 
re 1300 ; Get next character, ignoring blanks & tabs. 
46F 1001 © 
9A me MOVZBL (RI), R3 i; get current char and adjust POINTER_TO_INP 
91 1 CMPB R3, #a/ / 3 compare char with blan 
13 0475 1 04 BEQL jer LOOP_L i yes, ignore it 
91 1005 CMPB ORS, #™X09 ; Tab? 
13 047A 1 06 BEQL DIGIT_LOOP_L : Yes, ignore it 
11 047C 100 BRE CHECK-DIGIT_L 3; Continue 
7E 1008 
47E +s) 3 
47E 1010 : Check if current char is a legal digit, accumulate it in ACC if yes and 
of 43 3 ; then branch to DIGIT_LOOP if no overflow. Otherwise fall into ERROR. 
47E 1 1g ** 
47E 1014 CHECK_DIGIT_L: 
+ 47E 1015 sual ue, R3 ; R3 = ASCII (current char) = ASCII(''O") 
1 481 Ite BLSS ERRO 3 Error if less than™‘'0"’ 
91 ott 101 CMPB R3, : Is it greater then 79 
14 tt} 1318 BGTR ERROR ; If_so, error 
7A 0488 1019 EMUL #10, RG, RB, RG ; #10 = radix 
48D 1020 3 R& = LPCACC) pees) LPCACC) will be used in 
48D 1021 : since R5 (=HP ) must be zero 
048D 10 § ; R3 = current digit 
0480 10 3: R4/RS = ACC =A 7 * radix + current_digit 
DS 0480 1024 TSTL RS 3 compare RS with since a non-zero value 
48F 1025 : in HPC(ACC) meand overflow 
13 O48F 1026 BEQL DIGIT_LOOP_L ; if no overflow branch back to get more 
0491 1027 : character. Otherwise fall into ERROR 


=» | 


—@m 


M 
ti baSvatc leet tool cea to l "-: SEp-19pe 98: 93: Hi YeASRiL. sh €18 BA SVAL MAR: 1 a (3) 


n0000066Gr” Ot fe 


BRB eifr a ; exit with zero and error 


ee ek ee ne ee 
WDOOCOOOOOOOOOO 


OPM MMMM mMmmen Nn 


> a st ss ss Ss ss = 4 os — Ls ss ss 2 ss 
~ 


p i 3; ERROR return 
ERROR nov 7aL #BASSK ILLNUM, =(SP) 
CALLS G*BAS $e OP 
0 
0 
0 
0 
0 
0 


1256 IF €1 049 “BBC #V_NEGATIVE, R6, 108 ; branch "We. *te"' wasn't seen 
80000000 BF 54 01 046A 44 CMPL —- R44 #*X80000600 : is it 2e83 
OD i 4A 45 BEQL EX{T_L 3; yes, a non correct! 
54 D 4AB #6 TSTL RG 3; test for overflow 
gé 19 O4AD 4 LSS ERROR_L 3; if already negative, overflow 
54 4 CE O4AF rt: MNEGL R4, RG j answer is -R4 
04 11 0482 104 RB xiT_t ; Store result 
54 DS 0484 50 10$: TSTL ; Overflow? 
D9 «619 «=04B6 51 BLSS ERROR_L i If negative, yes 
0488 2g & EXIT_L: 
50 54 D0 0488 5 MOVL R4, RO ; Move longvord result into RO 
04 Ree 22 RET 


SVAL ; Convert text to numeric 16-SEP-1984 00:01:37 VAX/VMS Macr - 
‘3 BASSVAL.P - convert text to packed decim 6-SEP-1984 93:95:35 YOASRTL. SRCIBASVAL MAR; 1 ee 38) 
ret} ! 3 -SBTTL BASSVAL_P = convert text to packed decimal 
4BC 1 3++ 
ret] : rs : FUNCTIONAL DESCRIPTION: 
4BC 1 : This routine computes the packed decimal numeric value of i i 
46¢ 1 38 ; by coll ing an RT conversion routine and returns the velue in the. —— 
4B8C 1064 ; destination descriptor. If the input string doesn't contain a 
4B8C 1065 ; Legitimate packed decimal number the routine will signal a 
rt +3 } $8 : noncontinuable error. 
4B¢ $ > FORMAL PARAMETERS: 
4B8C 1070 : STRING. rt.dx pointer to input string descriptor 
Rees \ re : VALUE _DSC.wp.dsd pointer to output peched prog tis, descriptor 
48C 1073 ; IMPLICIT INPUTS: 
4BC 1074 ; 
re +3 : 76 3 NONE 
4BC 1077 : IMPLICIT OUTPUTS: 
048C 1 A 3 
ge Hee: one 
o4Be 10 1 } ROUTINE VALUE: 
Suet 1088 none 
gape 1986 $ SIDE EFFECTS: 
048C 1087 ;: This routine calls the conversion routine and theref i l 
48C 1088 ; of its errors or have any of its side effects. la vat Pe - ~ “— 
4BC 1089 ; conversion routine calls STR$ routines and so may allocate or deallocate 
04BC 1090 ; dynamic string space and write lock strings for a short time. 
Rope 44 : may also signal BASSK_ILLNUM if a non-numeric string is input. 
04BC 1098 i-- 
bce 1035 a 
4BC 1096 ; The following is the Blis that thi 
Reps 1998 net ey nM, e s code that this routine was 
4BC 1098 ; 
2B 1100 : \ Pe 
4BC 1101; BEGIN h back f ic f 
dae 1 ; i Y LEMP (BSFSA_SAVED_FP); search bac or Basic fram 
4BC 1104 ; UNTIL (.FMP CBSFSA_HANDLER] EQLA BASSHANDLER OR 
ie i é 3 .FMP EQC 0); 
4BC 1107 ; IF BASSCVT_T_P (STRING (0, 0, 0, 0).  ! string to be converted 
46C 11 : : VALUE _DSC f° 5. 09 9, place to put value 
48C 1109 ; ignore_blanks + ignore_tabs 
tt! 1119 ; + ag NEQ 0 AND T.FMP CBSFSW_FCD_FLAGS) AND BSFSM_FCD_RND) 
48C 1112: LSE dont_round)) ' fl 
4BC 118 : NEQU SSS NORMAL ate ~~ 


penne Tap wT 
B 9 
BASSYAL ; Convert text to numeric 16-SEP-1984 00:04:32 i yds Me cro v04-00 Page oe 


| BASSVAL_P - convert text to packed decim 6=-SEP-1984 :35 ROB ASVAL .MAR; 1 
4B8C 1114; THEN 
2B VW? ; BASSSSTOP (BASSK_ILLNUM); ! input non-numeric, error 
48C 1419 : 
4B8C 1118 : RETURN 
48C 1119; END; !End of BASS$VAL_P 
48C 1120; 
4BC 1121 i= 
468C 11 ¢ 
OFFC O468C 11 ENTRY BASSVAL_P, REGMASK 
O4BE 1124 
4BE 1125 ;+ : 
Reee i $ 3; begin by searching back for a BASIC frame. 
52 OC AD DO O4BE 1128 i$: MOVL BSFSA Mat 1S FP(FP), R2 ; get saved frame pointer 
53 OO000000'EF 9E bees 1168 MOVAB BASSHANDLER, R3 ; “ e 
53 62 D1 046C9 1130 CMPL (R2), R3 ; do we have a BASIC frame? 
06 13 O4CC V3) BEQL 23 ; yes. 
52. 05 O4CE 11 § TSTL ke 3; no, have we run out of frames? 
EC 12 0400 113 BNEQ 1$ ; no, keep Looking. 
04D2 113 
Q4D2 1135 5+ : 
ot 1136 ; we arrive here when we either: 
04D Vie : - found a BASIC frame, or 
0402 1138; - we ran out of frames. 
04D 1139 :- 
52. pS 04D2 1140 3$: TSTL R2 3; did we indeed run out of frames? 
09 13 0404 1141 BEQL 3$ : XS$- 
04 E6 A2 09 #+€1 0406 1148 BBC #BSFSM_FCD_RND, BSF SW_FCD_FLAGS( 2), 3$ 
040B 114 ; NO, was round" bit-flag 
04DB 1144 3 set in caller’ s frame? 
04DB 1145 ; if it wasn't, goto 3$ 
04DB 1146 
04DB 1147 ‘+ 
0408 1148 : arrive here if: 
ety i 3 - we found a BASIC frame, and the caller set the “‘round'’ bit-flag. 
50 D4 Q4DB 1151 CLRL RO ; clear the “don’t round’’ bit 
0400 1136 ; in the flags longword that we 
0400 115 3 pass to the conversion routine 
03 11 O400 1154 RRB 4$ : 
O4DF 1155 
O4DF 1156 i+ 
4DF 1157 : arrive here if we either: 
4DF 1158 : - ran out of frames, or 
tte! 112) 3 - we found a BASIC leans, but the caller didn't set the ‘'round’’ flag. 
50 08 00 O4DF 1161 38: MOVL #dont_round, RO ; set the ‘‘don*t round” bit 
O4E 1196 : in the flags fonaueré that 
Ree 116 ; we pass to the conversion 
4E 1164 3: routine 
QO4E2 1165 
O4E 1198 hd ; 
Be Vie ; call the routine BASSCVT_T_P, which actually does the work. 
Oct 119) 3 3; note: the ‘17°° in the PUSHAB instruction that follows this is arrived a 
4E2 1170 ; by adding the symbolic values for “ignore blanks’ (1) and “ignore tabs" ‘O16. 
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| BASSVAL ; Conver 
beity BASSVAL.. 


t text to numeric 16-SEP-1984 08:04:32 
P = convert text to packed decim 6-SEP-1984 7:39:35 
4E2 1171 ;- 
11 AO) «09F =«(04E2 1172 4s: PUSHAB 17(RO) 
4E5 117 
4E5 1174 
4E5 1175 
4E 1176 
7E O46 AC 7D Oue> EAA MOVQ = string(AP), =(SP) 
00000000'GF 03 FB O4E9 1179 CALLS #3, G*BASSCVT_T_P 
01 50 01 Oat 1180 CMPL =s RO, #1 

13 O4F3 1181 BEQL 

9A O4F 118¢ MOVZBL #BAS$K_ILLNUM, -(SP) 

FB 04F9 «(11 CALLS #1, G*BASS$$STOP 
0500 1184 
0500 1185 i+ 
0500 1186 ; all done, return 
0500 1187 :- 

04 0500 1188 5s: RET 
0501 +1189 
0501 1190 
0501 1191 END 


08 
7E 00° 8F 
QO000U00'GF 01 
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See Se Se Se Ge Se Se Se Se Se Se 


take whatever bits we have in 

the flags longword, add the 7 
ignore blanks’’ and ‘‘ignore tabs’ 

bits to it, and put it 

on the stack 

put passed string descriptor 

on the stac 

call conversion routine 

success? 

yes, return 

no, set up to signal error 

signal it 


coe 


ae 3) 
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ASVAL .MAR; 1 


acro 
RCIB 
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; Convert text to numeric 


| BASSVAL 
| Symbol table 


cs 


eaca ecca =< ecacae 
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| +g ; Convert text to numeric - 19=see- 138 90: 9: 3 y 
Fooecoocoseoooscoss+ 
Fie see ode 

oo Ree wesocoscee coeivene aatoumaed 

“BaSscové Goooser ¢ r2ets) Ore $3) “PLE UsR EON Re cet S 

{ Performance indicators | 
Phase Page faults CPU Time Elapsed Time 


Initialization 8 00:00:00.09 00:00:00.63 
zonnene processing 129 0:00:00.42 00:00:01.91 

s 1 111 0:00:02.76 00:00:06.12 
Synbol table sort ° 08 0:8 11 00:00: ee 
Pass 2 20 00: be 5 00:00:05.00 
Symbol table output " B38 :00.09 00:00:00.29 
Psect synopsis output 806.0705 00:00:00.05 
Cross-reference output 0 00:00:00.0 B8: :00:00.00 
Assembler run totals 498 00:00:05.72 0:00:14.11 


The working set Limit was 1050 pages. 

20176 bytes (40 pages) of virtual memory were used to buffer the intermediate cod 

There were 10 pages of symbol table space the ey to hold 107 non-local and 48 locat symbols. 
1191 source Lines were read in Pass 1, producing 28 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


Macro library name 


"$255$DUA28: CSYSLIBISTARLET. MLB;2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 
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HR NOEXE NORD NOWRT NOVEC BYTE 
HR EXE RD NOWRT NOVEC LONG 


MACRO/EWABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:BASVAL/OBJ=OBJ$:BASVAL MSRC$:BASVAL/UPDATE=(ENH$:BASVAL ) 
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ENT CORPORATION 
ND PROPRIETARY 
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